home *** CD-ROM | disk | FTP | other *** search
- property spriteNum, wastecard
- global stock, waste, redeals
-
- on beginSprite me
- redeals = 0
- stock = new(script("card pile"))
- stock.cards = shuffle()
- wastecard = sprite(10)
- end
-
- on mouseDown me
- if sprite(spriteNum).member.name = "backofcard" then
- puppetSound(3, member("deal card", "100GPak Generic SFX"))
- wastecard.member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
- stock.cards.deleteAt(1)
- waste.addCard(wastecard.spriteNum)
- if stock.getcardcount() = 0 then
- if redeals < 1 then
- sprite(spriteNum).member = member("replenish", "playing cards")
- redeals = redeals + 1
- else
- sprite(spriteNum).member = member("empty", "playing cards")
- checklose()
- end if
- end if
- else
- if sprite(spriteNum).member.name = "replenish" then
- sprite(spriteNum).member = member("backofcard", "playing cards")
- stock.cards = reshuffle(waste.cards)
- wastecard.member = member("empty", "playing cards")
- wastecard.undercard.member = member("empty", "playing cards")
- end if
- end if
- end
-
- on shuffle me
- ranks = ["ace", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "jack", "queen", "king"]
- suits = ["hearts", "diamonds", "clubs", "spades"]
- unshuffledCards = []
- shuffledCards = []
- repeat with rank in ranks
- repeat with suit in suits
- unshuffledCards.add([#rank: rank, #suit: suit])
- end repeat
- end repeat
- repeat while unshuffledCards.count > 0
- shuffledCards.add(unshuffledCards[random(unshuffledCards.count)])
- unshuffledCards.deleteOne(shuffledCards[shuffledCards.count])
- end repeat
- return shuffledCards
- end
-
- on reshuffle arg
- sho = []
- repeat with i = 1 to arg.count
- sho.add([#rank: arg[i].rank, #suit: arg[i].suit])
- end repeat
- return sho
- end
-